﻿Imports System.Data.SqlClient

Public Class Frm8Movimientos
    Public b As Integer

    Dim bol_Cargar As Boolean = False

    Public Function cargarbodegaDestino() As Boolean
        'Objeto Roles
        Dim accion As New BodegaDAO
        'Tabla temporal de roles
        Dim tabla As DataTable
        tabla = accion.mostrar
        'Comprobar si hay roles
        If tabla Is Nothing Then
            Return False
        Else

            'Trabajar con el control combox
            With cbxBdestino
                'No se permite modificar
                .DataSource = accion.mostrar
                'Fuentes de dtao
                .DropDownStyle = ComboBoxStyle.DropDownList
                'Campo a mostrar
                .DisplayMember = "Descripcion"
                'Clave principal
                .ValueMember = "ID_Bodega"
                'No mostrar ningun rol
                .SelectedIndex = -1
            End With

            Return True
        End If
    End Function

    Public Function cargarbodega() As Boolean
        'Objeto Roles
        Dim accion As New BodegaDAO
        'Tabla temporal de roles
        Dim tabla As DataTable
        tabla = accion.mostrar
        'Comprobar si hay roles
        If tabla Is Nothing Then
            Return False
        Else

            'Trabajar con el control combox
            With cbxBodegaOrigen
                'No se permite modificar
                .DataSource = accion.mostrar
                'Fuentes de dtao
                .DropDownStyle = ComboBoxStyle.DropDownList
                'Campo a mostrar
                .DisplayMember = "Descripcion"
                'Clave principal
                .ValueMember = "ID_Bodega"
                'No mostrar ningun rol
                .SelectedIndex = -1
            End With

            Return True
        End If
    End Function
    Public Sub cargarInventario(ByVal fila As Integer)
        Try
            Dim dato As New Movimientos
            Dim accion As New MovimientosDAO
            dato.pBodega = b

            'Llenar tabla
            Dim tabla As New DataTable
            If dato.pBodega = Nothing Then
            Else
                tabla = accion.inventario_mostrar_por_bodega(dato)

                FormatosGrid.formatoGrid_Mostrar_Inventario(DGV1, tabla)
            End If


        Catch ex As Exception
            MessageBox.Show(ex.Message, "Advertencia", MessageBoxButtons.OK,
                        MessageBoxIcon.Warning)
        End Try
    End Sub


    Private Sub Frm8Movimientos_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        txtFecha.Text = DateTime.Now.ToString("dd/MM/yyyy")
        cargarbodega()
        'Label5.Text = b
        cargarbodegaDestino()

    End Sub

    Private Sub dgv1_CurrentCellChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DGV1.CurrentCellChanged
        Try
            If Not DGV1.CurrentCell Is Nothing Then
                With DGV1
                    lblIDProducto.Text = .Rows(.CurrentCell.RowIndex).Cells(0).Value
                    txtProdcuto.Text = .Rows(.CurrentCell.RowIndex).Cells(1).Value

                End With
            End If
        Catch ex As Exception
            MessageBox.Show(ex.Message, "Advertencia", MessageBoxButtons.OK,
              MessageBoxIcon.Warning)
        End Try
    End Sub

    Private Sub cbxBodegaOrigen_SelectedValueChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cbxBodegaOrigen.SelectedValueChanged



        If bol_Cargar = True Then

            'Dim cnn As New SqlConnection(My.Settings.INVE_FISHConnectionString)
            'Dim cmd As New SqlCommand
            'Dim dr As SqlDataReader
            'cnn.Open()
            'cmd = New SqlCommand("inventario_mostrar_por_bodega")
            'cmd.CommandType = CommandType.StoredProcedure
            'cmd.Parameters.AddWithValue("@id", Me.cbxBodegaOrigen.SelectedValue)
            'cmd.Connection = cnn
            'cmd.ExecuteNonQuery()
            'dr = cmd.ExecuteReader
            'Dim dt As New DataTable
            'dt.Load(dr)
            'Me.DGV1.DataSource = dt
            Dim accion As New MovimientosDAO
            Dim dato As New Movimientos
            dato.pBodega = Me.cbxBodegaOrigen.SelectedValue
            'Llenar tabla
            Dim tabla As New DataTable
            tabla = accion.inventario_mostrar_por_bodega(dato)
            'Comprobar si hay datos
            If Not tabla Is Nothing Then
                'Cargar datos en el grid
                'dgv1.DataSource = tabla
                FormatosGrid.formatoGrid_Mostrar_Inventario(DGV1, tabla)
                'Mostrar datos en los controles
                'txtID.Text = DGV1.Rows(fila).Cells(0).Value
                'txtNombre.Text = DGV1.Rows(fila).Cells(1).Value
                'txtTipo.Text = DGV1.Rows(fila).Cells(2).Value
                'lblIDTipo.Text = DGV1.Rows(fila).Cells(3).Value
                ''Seleccionar toda la fila
                'DGV1.Rows(fila).Selected = True
                'DGV1.CurrentCell = DGV1.Rows(fila).Cells(1)
            Else
                DGV1.DataSource = ""
            End If



        End If

    End Sub

    Public Sub cargarRegistros1()
        Try
            Dim accion As New MovimientosDAO
            'Llenar tabla
            'lblIDMovimiento.Text = accion.mostrarUltimoRegistro
            Dim tabla As New DataTable
            tabla = accion.mostrarUltimoRegistro1
            lblIDMovimiento1.Text = registroUltimo1

            ''Comprobar si hay datos
            'If Not tabla Is Nothing Then
            '    'Cargar datos en el grid
            '    'dgv1.DataSource = tabla
            '    'FormatosGrid.funciones.formatoGrid_Usuarios(DGV1, tabla)
            '    'Mostrar datos en los controles
            '    lblIDMovimiento.Text = tabla.Rows(0).Item(0).Value
            '    'DGV1.Rows(fila).Selected = True
            '    'DGV1.CurrentCell = DGV1.Rows(fila).Cells(1)
            'End If
        Catch ex As Exception
            MessageBox.Show(ex.Message, "Advertencia", MessageBoxButtons.OK,
                        MessageBoxIcon.Warning)
        End Try
    End Sub
    Public Sub cargarRegistros2()
        Try
            Dim accion As New MovimientosDAO
            'Llenar tabla
            'lblIDMovimiento.Text = accion.mostrarUltimoRegistro
            Dim tabla As New DataTable
            tabla = accion.mostrarUltimoRegistro2
            lblIDMovimiento2.Text = registroUltimo2
            ''Comprobar si hay datos
            'If Not tabla Is Nothing Then
            '    'Cargar datos en el grid
            '    'dgv1.DataSource = tabla
            '    'FormatosGrid.funciones.formatoGrid_Usuarios(DGV1, tabla)
            '    'Mostrar datos en los controles
            '    lblIDMovimiento.Text = tabla.Rows(0).Item(0).Value
            '    'DGV1.Rows(fila).Selected = True
            '    'DGV1.CurrentCell = DGV1.Rows(fila).Cells(1)
            'End If
        Catch ex As Exception
            MessageBox.Show(ex.Message, "Advertencia", MessageBoxButtons.OK,
                        MessageBoxIcon.Warning)
        End Try
    End Sub




    Private Sub Frm8Movimientos_Shown(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Shown
        bol_Cargar = True
    End Sub


    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim retirar, ingresar As New Movimientos
        Dim accionretirar, accioningresar As New MovimientosDAO
        Dim invenarioretirar, inventarioingresar As New Inventario
        Dim accioninventarioretirar, accioninventarioingresar As New InventarioDAO


        retirar.pFehca = txtFecha.Text
        retirar.pDescripcion = "Movimiento Interno"
        retirar.pID_T_Documento = 3
        retirar.pBodega = cbxBodegaOrigen.SelectedValue
        retirar.pSocio = 1
        accionretirar.agregar(retirar)
        cargarRegistros1()

        invenarioretirar.pIngresos = 0
        invenarioretirar.pSalidas = txtCantidad.Text
        invenarioretirar.pIDproducto = lblIDProducto.Text
        invenarioretirar.pIDmovimiento = lblIDMovimiento1.Text
        accioninventarioretirar.agregar(invenarioretirar)

        ''***********************************************

        ingresar.pFehca = txtFecha.Text
        ingresar.pDescripcion = "Movimiento Interno"
        ingresar.pID_T_Documento = 3
        ingresar.pBodega = cbxBdestino.SelectedValue
        ingresar.pSocio = 1
        accioningresar.agregar(ingresar)
        cargarRegistros2()

        inventarioingresar.pIngresos = txtCantidad.Text
        inventarioingresar.pSalidas = 0
        inventarioingresar.pIDproducto = lblIDProducto.Text
        inventarioingresar.pIDmovimiento = lblIDMovimiento2.Text
        accioninventarioingresar.agregar(inventarioingresar)

        MessageBox.Show("Registro Almacenado", "Guardar", MessageBoxButtons.OK, MessageBoxIcon.Information)

        Frm8MovimientosMenu.Show()
        Me.Close()

    End Sub
End Class